

my @com = ('perlapp.exe') ;

my @mod = qw(
             Pg

             Tk
             Tk::Dialog ;
             Tk::Adjuster ;
             Tk::ROText ;

             Sgdb::Tk::BrowseEntry
             Sgdb::Tk::NoteBook
             Sgdb::Tk::Balloon
             Sgdb::Tk::SuperText

             Sgdb::Tk::FileDialog
             Sgdb::Tk::FontDialog

             Tk::Adjuster         Tk::Frame            Tk::Radiobutton
             Tk::After            Tk::HList            Tk::Region
             Tk::Animation        Tk::IO               Tk::Reindex
             Tk::Balloon          Tk::IconList         Tk::ReindexedROText
             Tk::Bitmap           Tk::Image            Tk::ReindexedText
             Tk::InputO           Tk::Scale
             Tk::Button           Tk::ItemStyle        Tk::Scrollbar
             Tk::Canvas           Tk::LabEntry         Tk::Stats
             Tk::Checkbutton      Tk::LabFrame         Tk::Submethods
             Tk::Clipboard        Tk::LabRadio         Tk::TList
             Tk::CmdLine          Tk::Label            Tk::Table
             Tk::ColorEditor      Tk::Listbox          Tk::Text
             Tk::Compound         Tk::MMtry            Tk::TextEdit
             Tk::Config           Tk::MMutil           Tk::TextList
             Tk::Configure        Tk::MainWindow       Tk::TextUndo
             Tk::Derived          Tk::MakeDepend       Tk::Tiler
             Tk::Dialog           Tk::Menu             Tk::TixGrid
             Tk::DialogBox        Tk::Menubar          Tk::Toplevel
             Tk::DirTree          Tk::Menubutton       Tk::Trace
             Tk::Dirlist          Tk::Message          Tk::Tree
             Tk::DragDrop         Tk::Mwm              Tk::Widget
             Tk::DropSite         Tk::NBFrame          Tk::WinPhoto
             Tk::English          Tk::Wm
             Tk::Entry            Tk::Optionmenu       Tk::X
             Tk::ErrorDialog      Tk::Pane             Tk::X11Font
             Tk::Event            Tk::Photo            Tk::Xlib
             Tk::FBox             Tk::Pixmap           Tk::Xrm
             Tk::FileSelect       Tk::Pretty           Tk::install
             Tk::FloatEntry       Tk::ProgressBar      Tk::widgets
             Tk::Font             Tk::ROText           Tk::Text::SuperText

             Exporter
             Time::Local

             Sgdb::CommandPrompt     Sgdb::SourcePane
             Sgdb::ControlPanel      Sgdb::FileEditPane  Sgdb::SourceSyntaxAsm
             Sgdb::SourceSyntaxC     Sgdb::SourceSyntaxJ
             Sgdb::DataMessagesPane
             Sgdb::DataPanesWin      Sgdb::LocalConfig   Sgdb::StatusLine
             Sgdb::PanesWin          Sgdb::TheMainWindow
             Sgdb::Preferences       Sgdb::TopMenu
             Sgdb::ServicePane       Sgdb::Utils

             Sgdb::DisplayCollected
             Sgdb::Cntr::ProfilerPane
             Sgdb::Cntr::PCSamples
             Sgdb::Cntr::StatusPane
             Sgdb::Cntr::EvTracePane
             Sgdb::DataSymbols
             Sgdb::InlinesPane
             Sgdb::SwuchPane
             FileHandle

             Sgdb::Cntr::Controler     Sgdb::Cntr::EvMsgName
             Sgdb::Cntr::ControlerExt  Sgdb::Cntr::CoverageM68
             Sgdb::Cntr::CoveragePPC   Sgdb::Cntr::PatchUtils
             Sgdb::Cntr::EvFilterPane
            ) ;

my @ver = qw( internalname=sgdb
              originalfilename=sgdbtk
              companyname=EMC
              productname=Sgdb-for-QA
              filenumber=1
              comments=written-by-Josef-Ezra
              productnumber=0.01
              legaltrademarks=EMC
              fileversion=0.01
              productversion=0.01
              filedescription=ghost-log-tracer
              legalcopyright=EMC
            ) ;
push @com,
  '-freestanding' ,
  '-c' ,
  -s => 'sgdbtk',
  '-add="'  . join (';', @mod) . '"' ,
  '-info="' . join (';', @ver) . '"' ,
#  "-icon=tools.xpm",
#  -gui,
  ;

unlink 'sgdbtk.exe' ;

system @com ;

# link 'sgdbtk.exe' => '../WIN-SGDB/sgdbtk.exe' ;
 chmod 755 => 'sgdbtk.exe' ;
system "copy e:\\sgdb_gui\\sgdbtk.exe e:\\WIN-SGDB\\sgdbtk.exe" ;
# unlink 'sgdbtk.exe' ;

# system "copy e:\\WIN-SGDB\\sgdbtk.exe s:\\WIN-SGDB\\sgdbtk.exe" ;

exit 0;

push @com,
  '-exe' => 'runsgdbtk.exe',
  '-gui',
  ;

unlink 'runsgdbtk.exe' ;

system @com ;

